Análisis de Datos I
Tarea 6

Librerias

library(factoextra)
library(FactoMineR)

Ejercicio 3

Ejercicio 4

Usando las variables categóricas de la tabla de datos poison del paquete FactoMineR realice un AFCM con la función MCA(…) del paquete FactoMineR. Incluya e interprete al menos: 1) Grafico de varianzas explicadas por los ejes 2) Grafico de variables 3) Grafico de variables con modalidades 4) el Biplot 5) cos2(x) de modalidades y variables y 6) contribuciones de variables y modalidades a la formación de ejes.

Base de datos

Se carga la base de datos poison del paquete FactoMiner.

data(poison)

knitr::kable(poison)
Age Time Sick Sex Nausea Vomiting Abdominals Fever Diarrhae Potato Fish Mayo Courgette Cheese Icecream
9 22 Sick_y F Nausea_y Vomit_n Abdo_y Fever_y Diarrhea_y Potato_y Fish_y Mayo_y Courg_y Cheese_y Icecream_y
5 0 Sick_n F Nausea_n Vomit_n Abdo_n Fever_n Diarrhea_n Potato_y Fish_y Mayo_y Courg_y Cheese_n Icecream_y
6 16 Sick_y F Nausea_n Vomit_y Abdo_y Fever_y Diarrhea_y Potato_y Fish_y Mayo_y Courg_y Cheese_y Icecream_y
9 0 Sick_n F Nausea_n Vomit_n Abdo_n Fever_n Diarrhea_n Potato_y Fish_y Mayo_n Courg_y Cheese_y Icecream_y
7 14 Sick_y M Nausea_n Vomit_y Abdo_y Fever_y Diarrhea_y Potato_y Fish_y Mayo_y Courg_y Cheese_y Icecream_y
72 9 Sick_y M Nausea_n Vomit_n Abdo_y Fever_y Diarrhea_y Potato_y Fish_n Mayo_y Courg_y Cheese_y Icecream_y
5 16 Sick_y F Nausea_n Vomit_y Abdo_y Fever_y Diarrhea_y Potato_y Fish_y Mayo_y Courg_y Cheese_y Icecream_y
10 8 Sick_y F Nausea_y Vomit_y Abdo_y Fever_y Diarrhea_y Potato_y Fish_y Mayo_y Courg_y Cheese_y Icecream_y
5 20 Sick_y M Nausea_y Vomit_n Abdo_y Fever_y Diarrhea_y Potato_y Fish_y Mayo_y Courg_y Cheese_y Icecream_y
11 12 Sick_y M Nausea_n Vomit_y Abdo_n Fever_y Diarrhea_y Potato_y Fish_y Mayo_y Courg_y Cheese_y Icecream_y
7 17 Sick_y F Nausea_y Vomit_y Abdo_y Fever_y Diarrhea_y Potato_y Fish_y Mayo_y Courg_y Cheese_y Icecream_y
10 16 Sick_y F Nausea_n Vomit_y Abdo_y Fever_n Diarrhea_n Potato_y Fish_y Mayo_y Courg_y Cheese_y Icecream_y
36 19 Sick_y F Nausea_n Vomit_n Abdo_y Fever_y Diarrhea_y Potato_y Fish_y Mayo_y Courg_y Cheese_y Icecream_y
9 0 Sick_n F Nausea_n Vomit_n Abdo_n Fever_n Diarrhea_n Potato_y Fish_y Mayo_n Courg_y Cheese_y Icecream_y
8 0 Sick_n M Nausea_n Vomit_n Abdo_n Fever_n Diarrhea_n Potato_y Fish_y Mayo_n Courg_y Cheese_n Icecream_y
6 6 Sick_y F Nausea_n Vomit_y Abdo_y Fever_y Diarrhea_y Potato_y Fish_y Mayo_y Courg_y Cheese_y Icecream_y
7 10 Sick_y M Nausea_n Vomit_y Abdo_y Fever_y Diarrhea_y Potato_y Fish_y Mayo_y Courg_y Cheese_n Icecream_y
5 15 Sick_y M Nausea_y Vomit_y Abdo_y Fever_y Diarrhea_y Potato_y Fish_y Mayo_y Courg_y Cheese_y Icecream_y
11 14 Sick_y F Nausea_n Vomit_y Abdo_y Fever_y Diarrhea_y Potato_y Fish_y Mayo_y Courg_y Cheese_y Icecream_y
11 0 Sick_n F Nausea_n Vomit_n Abdo_n Fever_n Diarrhea_n Potato_y Fish_y Mayo_n Courg_y Cheese_y Icecream_y
10 18 Sick_y M Nausea_n Vomit_n Abdo_y Fever_y Diarrhea_y Potato_y Fish_y Mayo_y Courg_y Cheese_y Icecream_y
8 14 Sick_y F Nausea_n Vomit_n Abdo_y Fever_y Diarrhea_y Potato_y Fish_y Mayo_y Courg_y Cheese_y Icecream_n
8 21 Sick_y F Nausea_n Vomit_y Abdo_y Fever_y Diarrhea_y Potato_y Fish_y Mayo_y Courg_n Cheese_y Icecream_y
11 13 Sick_y M Nausea_n Vomit_y Abdo_y Fever_n Diarrhea_y Potato_y Fish_y Mayo_y Courg_y Cheese_y Icecream_y
45 10 Sick_y F Nausea_n Vomit_n Abdo_y Fever_y Diarrhea_y Potato_y Fish_y Mayo_y Courg_y Cheese_n Icecream_y
9 0 Sick_n M Nausea_n Vomit_n Abdo_n Fever_n Diarrhea_n Potato_y Fish_y Mayo_y Courg_y Cheese_y Icecream_y
5 12 Sick_y F Nausea_n Vomit_y Abdo_y Fever_y Diarrhea_n Potato_y Fish_y Mayo_y Courg_y Cheese_y Icecream_y
85 9 Sick_y M Nausea_n Vomit_y Abdo_y Fever_y Diarrhea_y Potato_y Fish_y Mayo_n Courg_n Cheese_y Icecream_y
88 0 Sick_n F Nausea_n Vomit_n Abdo_n Fever_n Diarrhea_n Potato_y Fish_y Mayo_y Courg_y Cheese_y Icecream_y
79 17 Sick_y F Nausea_y Vomit_y Abdo_y Fever_y Diarrhea_y Potato_y Fish_y Mayo_y Courg_y Cheese_y Icecream_y
9 9 Sick_y F Nausea_n Vomit_n Abdo_y Fever_y Diarrhea_y Potato_y Fish_y Mayo_n Courg_y Cheese_y Icecream_y
6 0 Sick_n M Nausea_n Vomit_n Abdo_n Fever_n Diarrhea_n Potato_y Fish_y Mayo_n Courg_y Cheese_n Icecream_y
8 0 Sick_n F Nausea_n Vomit_n Abdo_n Fever_n Diarrhea_n Potato_y Fish_y Mayo_y Courg_y Cheese_y Icecream_y
8 0 Sick_n M Nausea_n Vomit_n Abdo_n Fever_n Diarrhea_n Potato_y Fish_y Mayo_y Courg_y Cheese_y Icecream_y
7 15 Sick_y F Nausea_y Vomit_n Abdo_y Fever_y Diarrhea_y Potato_n Fish_y Mayo_y Courg_y Cheese_y Icecream_y
9 19 Sick_y M Nausea_y Vomit_y Abdo_y Fever_y Diarrhea_y Potato_y Fish_y Mayo_y Courg_y Cheese_y Icecream_y
9 11 Sick_y M Nausea_y Vomit_n Abdo_y Fever_n Diarrhea_y Potato_n Fish_y Mayo_y Courg_y Cheese_y Icecream_y
6 0 Sick_n F Nausea_n Vomit_n Abdo_n Fever_n Diarrhea_n Potato_y Fish_y Mayo_y Courg_n Cheese_n Icecream_y
5 17 Sick_y M Nausea_n Vomit_n Abdo_y Fever_y Diarrhea_y Potato_n Fish_y Mayo_y Courg_y Cheese_y Icecream_y
6 16 Sick_y M Nausea_y Vomit_y Abdo_y Fever_y Diarrhea_y Potato_y Fish_y Mayo_y Courg_y Cheese_y Icecream_y
4 12 Sick_y M Nausea_y Vomit_n Abdo_y Fever_y Diarrhea_y Potato_y Fish_y Mayo_y Courg_y Cheese_y Icecream_y
7 0 Sick_n M Nausea_n Vomit_n Abdo_n Fever_n Diarrhea_n Potato_y Fish_y Mayo_y Courg_y Cheese_y Icecream_y
82 20 Sick_y F Nausea_n Vomit_n Abdo_y Fever_y Diarrhea_y Potato_y Fish_y Mayo_y Courg_y Cheese_y Icecream_y
5 4 Sick_y F Nausea_y Vomit_y Abdo_y Fever_y Diarrhea_y Potato_y Fish_y Mayo_y Courg_n Cheese_y Icecream_n
5 20 Sick_y M Nausea_n Vomit_y Abdo_y Fever_y Diarrhea_y Potato_y Fish_y Mayo_y Courg_n Cheese_y Icecream_y
6 16 Sick_y M Nausea_n Vomit_n Abdo_y Fever_y Diarrhea_y Potato_y Fish_y Mayo_y Courg_y Cheese_y Icecream_y
10 0 Sick_n M Nausea_n Vomit_n Abdo_n Fever_n Diarrhea_n Potato_y Fish_y Mayo_n Courg_y Cheese_y Icecream_n
83 0 Sick_n M Nausea_n Vomit_n Abdo_n Fever_n Diarrhea_n Potato_y Fish_y Mayo_y Courg_y Cheese_y Icecream_y
8 0 Sick_n F Nausea_n Vomit_n Abdo_n Fever_n Diarrhea_n Potato_y Fish_y Mayo_y Courg_y Cheese_y Icecream_y
7 22 Sick_y F Nausea_n Vomit_n Abdo_y Fever_y Diarrhea_y Potato_y Fish_y Mayo_y Courg_y Cheese_y Icecream_y
10 0 Sick_n M Nausea_n Vomit_n Abdo_n Fever_n Diarrhea_n Potato_y Fish_y Mayo_n Courg_y Cheese_y Icecream_y
11 17 Sick_y M Nausea_n Vomit_n Abdo_y Fever_y Diarrhea_y Potato_y Fish_y Mayo_y Courg_y Cheese_y Icecream_y
6 0 Sick_n F Nausea_n Vomit_n Abdo_n Fever_n Diarrhea_n Potato_y Fish_y Mayo_n Courg_y Cheese_n Icecream_n
10 19 Sick_y M Nausea_n Vomit_y Abdo_y Fever_y Diarrhea_n Potato_y Fish_y Mayo_y Courg_y Cheese_y Icecream_y
7 14 Sick_y M Nausea_n Vomit_y Abdo_y Fever_y Diarrhea_y Potato_y Fish_y Mayo_y Courg_y Cheese_y Icecream_y

AFCM

Se realiza el AFCM con la base de datos poison

poisonAFCM <- MCA(poison, quanti.sup = 1:2, quali.sup=c(3,4))